home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / tafltggr.lha / examples / LogOn.trans < prev    next >
Text File  |  1993-09-03  |  545b  |  24 lines
  1. /* Logon.trans */
  2.  
  3. options results
  4.  
  5. if SHOW('Libraries','rexxsupport.library')~=1 then
  6.   if ADDLIB("rexxsupport.library",0,-30,0)~=1 then
  7.   do
  8.     Print
  9.     Print 'ERROR: rexxsupport.library is not available...'
  10.     Print 'Please Inform Sysop.'
  11.     Sysoplog 'Logon.trans failed: Requires rexxsupport.library.'
  12.     exit 20
  13.   end
  14. if ~show('l', "rexxarplib.library") then do
  15. check = addlib('rexxmathlib.library',0,-30,0)
  16. check = addlib('rexxarplib.library',0,-30,0)
  17. end
  18.  
  19.  
  20. userinfo 'o'   ; access = result
  21. if access=0 then setflags 'XXXX----'
  22.  
  23. exit
  24.